home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 021 - HO Utilities - Clock Utility System.dsk / FIND.TIMEMASTER.bas < prev    next >
BASIC Source File  |  2019-02-16  |  996b  |  21 lines
  1. 10  REM  SUBROUTINE FOR INCLUSION IN OTHER PROGRAMS
  2. 20  GOSUB 1000
  3. 30  IF SLOT = 0  THEN  PRINT "TIMEMASTER II H.O. NOT FOUND": END 
  4. 40  PRINT "TIMEMASTER II H.O. IS IN SLOT "SLOT
  5. 50  GOSUB 2000
  6. 60  END 
  7. 1000  REM  TIMEMASTER II FINDER
  8. 1010 SLOT = 0: FOR I = 1 TO 7:ADDR = 12 *4096 +I *256: REM  $CS00
  9. 1020  IF  PEEK(ADDR) = 8  AND  PEEK(ADDR +1) = 120  AND  PEEK(ADDR +254) = 178  THEN SLOT = I:I = 7
  10. 1030  NEXT : IF SLOT = 0  THEN  RETURN 
  11. 1040 AP =  PEEK(ADDR +255):VER =  PEEK(ADDR +250): IF VER = 255  THEN VER = 0
  12. 1050 PA = 12 *4096 +128 +SLOT *16: REM  $C080+SLOT*16
  13. 1060 CA = PA +1:PB = PA +2
  14. 1070 VER =  INT(VER/16) +(VER -16 * INT(VER/16))/10:VER$ =  STR$(VER)
  15. 1080  RETURN 
  16. 1090  REM -------------------
  17. 2000  REM  EXPLAIN MODE ON SCREEN
  18. 2010  IF AP = 1  THEN Q$ = "APPLECLOCK MODE (SW 2 ON)": IF VER >0  THEN Q$ = Q$ +" VER " +VER$
  19. 2020  IF AP = 3  THEN Q$ = "TIMEMASTER II MODE (SW 2 OFF)": IF VER >0  THEN Q$ = Q$ +" VER " +VER$
  20. 2030  PRINT Q$: RETURN 
  21. 2040  REM -------------------